home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1260 / pascalxt.cf_ / pascalxt.cf
Text File  |  1996-03-12  |  4KB  |  218 lines
  1. ; -------------------------------------------------------------------------
  2. ; ----------- EasyCODE(SPX) - Configuration for Pascal-XT -----------------
  3. ; -------------------------------------------------------------------------
  4.  
  5. [ParseOptions]
  6. Parser=easy-pas.dll
  7.  
  8. PushDownVar=no
  9. PushDownConst=no
  10. PushDownType=no
  11. PushDownProcedureBody=no
  12. PushDownFunctionBody=no
  13. PushDownInterface=no
  14. PushDownInitialization=no
  15. PushDownImplementation=no
  16. NestedComments=no
  17.  
  18. [GenOptions]
  19. InitialIndent=0
  20. CompressBlanks=yes
  21. GenFileExt=PAS
  22. MaxIndent=-1
  23. MaxLineLength=-1
  24.  
  25. [Settings]
  26. SourceFileFormat=OEM
  27.  
  28. [AvailableConstructs]
  29. Statement=yes
  30. If=yes
  31. Switch=yes
  32. Case=yes
  33. For=yes
  34. While=yes
  35. Repeat=yes
  36. Loop=yes
  37. Exit=no
  38. Procedure=yes
  39. Call=yes
  40. Function=yes
  41. Block=yes
  42. Frame=yes
  43. Condition=yes
  44. And=yes
  45. Or=yes
  46. Not=yes
  47.  
  48. [InsertMenuStrings]
  49. ;Statement=
  50. If=&if
  51. Switch="if-el&se if"
  52. When="  &else if"
  53. Case=&case
  54. Of="  &of"
  55. For=&for
  56. While=&while
  57. Repeat=re&peat
  58. Loop=&loop
  59. ;Exit=
  60. Procedure=procedure
  61. Call=call
  62. Function=f&unction
  63. ;Block=
  64. ;Frame=
  65. ;Condition=
  66. ;And=
  67. ;Or=
  68. ;Not=
  69.  
  70. [EncloseMenuStrings]
  71. If=&if
  72. Then=&then
  73. Else=&else
  74. Switch="if-&else if"
  75. When="&else if"
  76. WhenNone=e&lse
  77. Case=&case
  78. Of=&of
  79. Otherwise=&else
  80. For=&for
  81. While=&while
  82. Repeat=&repeat
  83. Loop=&loop
  84. ;Exit=
  85. Procedure=&procedure
  86. Function=f&unction
  87. ;Block=
  88. ;Frame=
  89. ;Condition=
  90. ;And=
  91. ;Or=
  92. ;Not=
  93.  
  94. [KeywordStrings]
  95. ;If=
  96. ;Then=
  97. ;Else=
  98. Switch="if-else if"
  99. FirstWhen="if"
  100. When="else if"
  101. WhenNone="else"
  102. ;Case=
  103. ;FirstOf=
  104. ;Of=
  105. Otherwise=else
  106. ;For=
  107. ;While=
  108. ;Repeat=
  109. ;Loop=
  110. Procedure="procedure"
  111. Function="function"
  112. ;Block=
  113. And=AND
  114. Or=OR
  115. Not=NOT
  116.  
  117. [MetaStrings]
  118. ;SegmentHeader=
  119. ;Statement=
  120. ;Condition=
  121. ;Expression=
  122. ;Value=
  123. ;ForStatement=
  124. ;ProcedureHeader=
  125. ;ProcedureCall=
  126. ;FunctionHeader=
  127. ;BlockComment=
  128. ;FrameHeader=
  129. ;FrameFooter=
  130.  
  131. [GenStrings]
  132. Statement='\N'
  133. EndStatement='\N'
  134.  
  135. If='\Nif \3+'
  136. ThenBody='\3-\Nthen begin\n\8+'
  137. ElseBody='\3-\Nend\5-\nelse begin\n\8+'
  138. EmptyElseBody=''
  139. EndIf='\N\3-end;\n\5-'
  140.  
  141. Case='\Ncase \5+'
  142. FirstOf=' of\2-\n'
  143. FurtherOf='\3-\Nend;\n\3-'
  144. OfBody=':\n\3+begin\n\3+'
  145. OtherwiseBody='\3-\Nend;\n\3-else:\n\3+begin\3+\n'
  146. EmptyOtherwiseBody='\3-\Nend;\n\3-else:\n\3+begin\3+\n'
  147. EndCase='\N\3-end;\n\6-end;\n'
  148.  
  149. Switch=''
  150. FirstWhen='\Nif      \8+'
  151. FurtherWhen='\3-\Nend\5-\nelse if \8+'
  152. WhenBody='\8-\Nthen begin\n\8+'
  153. WhenNoneBody='\3-\Nend\5-\nelse begin\n\8+'
  154. EmptyWhenNoneBody=''
  155. EndSwitch='\N\3-end;\n\5-'
  156.  
  157. For='\Nfor \4+'
  158. ForBody=' do\n\4-begin\3+\n'
  159. EndFor='\N\3-end;\n'
  160.  
  161. While='\Nwhile \6+'
  162. WhileBody=' do\n\6-begin\3+\n'
  163. EndWhile='\N\3-end;\n'
  164.  
  165. Repeat='\Nrepeat\n\3+'
  166. Until='\N\3-until \6+'
  167. EndRepeat=';\6-\n'
  168.  
  169. Loop='\Nwhile true do\nbegin\n\3+'
  170. EndLoop='\3-\Nend;\n'
  171.  
  172. ; Warning!
  173. ; The GenString Exit is not provided, because the EXIT
  174. ; construct is not supported by Pascal.
  175. ; Please change the enclosing LOOP construct to a WHILE or REPEAT construct!
  176. ; Due to the GenString EndExit you will find the following hint 
  177. ; in the generated source program:
  178. EndExit='\s\0:\n\nWarning! EXIT construct not allowed.\n\n\r'
  179.  
  180. Procedure='\Nprocedure \10+'
  181. ProcedureBody='\10-\N'
  182. EndProcedure=';\N'
  183.  
  184. Call='\N'
  185. EndCall=';\n'
  186.  
  187. Function='\Nfunction \9+'
  188. FunctionBody='\9-\N'
  189. EndFunction=';\N'
  190.  
  191. Block='\N{ \5+'
  192. BlockBody=' }\5-\n'
  193. EndBlock='\N'
  194.  
  195. Frame='\N'
  196. FrameBody='\N\3+'
  197. EndFrameBody='\N\3-'
  198. EndFrame=''
  199.  
  200. BeginAnd='    (\5+'
  201. And=')\n\5-and (\5+'
  202. EndAnd=')\5-'
  203. BeginOr='    (\5+'
  204. Or=')\n\5-or  (\5+'
  205. EndOr=')\5-'
  206. BeginNot='not (\5+'
  207. EndNot=')\5-'
  208. Condition=''
  209. EndCondition=''
  210.  
  211. Segment='\N{ \2+'
  212. SegmentBody=' }\n'
  213. EndSegment='\2-\N'
  214.  
  215. TopSegment='{ Generated by \%PNAME% V\%PVER% at \%TIME%\n  with \%CFG% }\n\n{ \2+'
  216. TopSegmentBody=' }\2-\n\n'
  217. EndTopSegment='\N'
  218.